﻿Public Class frmConsultaEncaminhamento
    Private enc As New _encaminhamento
    Dim DTVEncaminhamento As DataView
    Private _idEncaminhamento As Integer
    Public Property idEncaminhamento() As Integer
        Get
            Return _idEncaminhamento
        End Get
        Set(ByVal value As Integer)
            _idEncaminhamento = value
        End Set
    End Property

    Private Sub frmConsultaEncaminhamento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgvEncaminhamento.AutoGenerateColumns = False
        DTVEncaminhamento = enc.consultaEncaminhamento.Tables("dataSet").DefaultView
        dgvEncaminhamento.DataSource = DTVEncaminhamento

    End Sub

    Private Sub btnConsultaPorPeriodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultaPorPeriodo.Click
        Dim j As New frmFiltroPorPeriodo
        If j.ShowDialog() = Windows.Forms.DialogResult.OK Then
            'MsgBox(j.dtIncial & " , " & j.dtFinal)
            enc.consultaEncaminhamentoPorPeriodo(j.dtIncial, j.dtFinal)
            dgvEncaminhamento.DataSource = enc.consultaEncaminhamentoPorPeriodo(j.dtIncial, j.dtFinal).Tables("dataSet")
        End If
    End Sub

    Private Sub txtNomeTrabalhador_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNomeTrabalhador.TextChanged

        DTVEncaminhamento.RowFilter = "O_NM_COMPLETO LIKE '%" & txtNomeTrabalhador.Text & "%'"
        dgvEncaminhamento.DataSource = DTVEncaminhamento

    End Sub

    Private Sub txtNomeEmpresa_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNomeEmpresa.TextChanged
        DTVEncaminhamento.RowFilter = "O_NM_EMPRESA LIKE '%" & txtNomeEmpresa.Text & "%'"
        dgvEncaminhamento.DataSource = DTVEncaminhamento

    End Sub

    Private Sub dgvEncaminhamento_CellContentDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvEncaminhamento.CellContentDoubleClick

        idEncaminhamento = dgvEncaminhamento.CurrentRow.Cells("O_ID_ENCAMINHAMENTO").Value
        Me.Close()

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        Dim j As New frmCadastroBaixaEncaminhamento()
        j.ShowDialog()

    End Sub
End Class